home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / education / e021.dms / e021.adf / witch3.AMOS / witch3.amosSourceCode
AMOS Source Code  |  1978-01-25  |  2KB  |  71 lines
  1. Load "thewitch.abk",5 : PAUSE : Unpack 5 To 0 : Wait 30 : Cls 
  2. Cls : Locate 0,10 : Curs Off : Centre "You are filled with terror"
  3. Locate 0,12 : Centre "and for a few seconds"
  4. Locate 0,14 : Centre "you are unable to move."
  5. Load "music3.abk" : Music 1
  6. Locate 0,16 : Centre "From somewhere inside you, you hear"
  7. Locate 0,18 : Centre "a voice that sounds like Elvenshine."
  8. PAUSE : Locate 0,21 : Curs Off : Hide On : Centre "USE THE MAGIC SPRAY."
  9. Load "spray.abk" : Show On 
  10. PAUSE
  11. Show On 
  12. Cls 
  13. Screen Open 1,320,256,8,Lowres
  14. Screen Open 2,320,256,8,Lowres
  15. Screen To Front 0
  16. Rem         ***************Dual Playfield 1,2
  17. Unpack 5 To 1 : Screen Hide 1 : Wait 10 : Load "wdreamstone.abk",5
  18. Unpack 5 To 2 : Screen Hide 2
  19. Screen To Front 0 : Screen Show 2 : Screen Show 1
  20. Wait 10
  21. Screen Close 0
  22. Dual Playfield 1,2
  23. Ink 0
  24. Screen 1
  25. WTRY:
  26. PAUSE
  27. Shift Up 10,8,11,1
  28. Limit Mouse 
  29. Hide On 
  30. Do 
  31. Q=X Mouse-133 : W=Y Mouse-47
  32. Sprite 1,X Mouse+10,Y Mouse+10,1
  33. T=Rnd(30) : Y=Rnd(30) : Ink 0 : Bar Q+T,W+Y To Q+T+6,W+Y+6
  34. Exit If Inkey$<>""
  35. Loop 
  36. Sprite Off : Show On 
  37. CHECK1:
  38. Locate 5,0 : Centre "             TESTING             "
  39. Q=1 : W=18
  40. Do 
  41. D=Point(Q,W)
  42. Exit If D>0
  43. Q=Q+5
  44. If Q>320 Then Q=1 : W=W+5
  45. Exit If W>256
  46. Loop 
  47. If D>0 Then Goto FTEST
  48. COMPLETE:
  49. Goto COMPLETE1
  50. FTEST:
  51. Locate 5,0 : Centre "The witch has not been destroyed yet"
  52. Shift Up 10,1,7,1
  53. Wait 100
  54. Shift Off 
  55. PAUSE
  56. Goto WTRY
  57. COMPLETE1:
  58. Curs Off : Centre "well done!"
  59. Procedure PAUSE
  60. Do 
  61. Exit If Inkey$=""
  62. Loop 
  63. Do 
  64. Exit If Mouse Key=0
  65. Loop 
  66. Do 
  67. Exit If Mouse Key>0
  68. Exit If Inkey$<>""
  69. Loop 
  70. End Proc
  71. Run "witch4.amos"